人才搜索

<% if MemberBeginDate="" or isnull(MemberBeginDate) or MemberEndDate="" or Isnull(MemberEndDate) or DateDiff("d",now(),MemberEndDate)<0 then MemberType=0 end if FileName="p12.asp?" Position_b = Jyrcw.chgStr(Trim(Request.QueryString("Position_b"))) Position_s = Jyrcw.chgStr(Trim(Request.QueryString("Position_s"))) Qualification = Jyrcw.chgStr(Trim(Request.QueryString("Qualification"))) Province = Jyrcw.chgStr(Trim(Request.QueryString("Province"))) City = Jyrcw.chgStr(Trim(Request.QueryString("City"))) County = Jyrcw.chgStr(Trim(Request.QueryString("County"))) ValidityDate = Jyrcw.chgStr(Trim(Request.QueryString("ValidityDate"))) keyword = Jyrcw.chgStr(Trim(Request.QueryString("keyword"))) If keyword = "请输入要查询的关键字" Then keyword = "" end if if City="不限" then City="" end if if County="不限" then County="" end if TodayDate = Jyrcw.FormatDate(Date()) Sql = " IsHidden = '0' and IsLock = '0' " If Position_b <> "" Then Sql = Sql & " and Position_b = '"& Position_b &"' " End If If Position_s <> "" And Position_s <> "不限" Then Sql = Sql & " and (Position_s = '"& Position_s &"' or Position_s = '不限') " End If If Qualification <> "" And Qualification <> "不限" Then Sql = Sql & " and Qualification = '"& Qualification &"' " End If If Province <> "" Then Sql = Sql & " and Province = '"& Province &"' " End If If City <> "" Then Sql = Sql & " and City = '"& City &"' " End If If County <> "" And County <> "不限" Then Sql = Sql & " and (County = '"& County &"' or County = '不限') " End If If ValidityDate <> "" Then If Not IsNumeric(ValidityDate) Then ValidityDate = 0 If ValidityDate > 0 Then Sql = Sql & " and DateDiff("&sjksjxz1&")<="&ValidityDate&" " End If End If If keyword <> "" And keyword <> "请输入要查询的关键字" Then Sql = Sql & " and (JobPost like '%"& keyword &"%' or RealName like '%"& keyword &"%') " End If Sql = "select * from PersonTbl where "& Sql &" "&jyrcwfzqz&" order by EditDate desc" FileName = "p12.asp?Position_b="& Position_b & "&Position_s=" & Position_s & "&Qualification=" & Qualification & "&Province=" & Province & "&City=" & City & "&County=" & County & "&ValidityDate=" & ValidityDate & "&keyword=" & keyword&"&" %>

<%If Jyrcw.arrMember(5 , MemberType) <> "1" Then%>

对不起，普通会员没有该权限，点击这里升级为高级会员！如果您暂停了会员，要使用此功能请开启您的VIP会员！

<%else%>

<% Response.Write("" & vbCrLf) %>

备注：灰色简历表示该简历的联系方式已经被查看，如需知道查看该简历联系方式的时间，请点击这里已经查看的简历查询。
姓名
性别
学历
希望职业
希望职位
希望地区
希望月薪
更新时间

<% Rs.Open Sql , Conn , 1 , 1 If Rs.Eof Then %> 没有信息 <% Else Rs.PageSize = 30 CurrentPage = Clng(Request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Rs.AbsolutePage = CurrentPage i = 0 Do While Not Rs.Eof RealName=rs("RealName") sex=Rs("Sex") Qualification=Rs("Qualification") Position_b=Rs("Position_b") JobPost=Rs("JobPost") City=Rs("City") County=Rs("County") Salary=Rs("Salary") EditDate=Rs("EditDate") PerId=Rs("PerId") Set Rspb = server.CreateObject("ADODB.recordset") Sqlpb = "select ViewJlId from ViewJlTbl where PerId = "& PerId &" and ComId = "& Request.Cookies("ComId") &"" Rspb.Open Sqlpb , Conn , 1 , 1 If Rspb.Eof Then Newpb=0 else Newpb=1 end if Rspb.Close set Rspb=nothing %>

title="该简历已查看"<%end if%>><%if Newpb=1 then%><%=RealName%><%else%><%=RealName%><%end if%>

<%=Sex%>

<%=Qualification%>

<%=Position_b%>

<%=left(JobPost,15)%>

<%=City%><%=left(County,4)%>

<%if Salary="0" then%>面议<%else%><%=left(Salary,8)%>元<%end if%>

<%=jyrcw.formatdatee(EditDate,2)%>

<% i = i + 1 Rs.MoveNext If i >= Rs.PageSize Then Exit Do Loop %>

<%Jyrcw.Page_Cnnn CurrentPage , Rs.PageCount , Rs.RecordCount , FileName %> 转到页

<% End If Rs.Close Set Rs=nothing %>

<%end if%>

简历综合查询：